home *** CD-ROM | disk | FTP | other *** search
/ CBM Funet Archive / cbm-funet-archive-2003.iso / cbm / geos / drivers / printers / Shell Printer Drivers.src.lnx / Okimate20G (.txt) < prev    next >
Encoding:
GEOS ConVerT  |  1999-06-16  |  5.2 KB  |  215 lines
  1. oKIMATE20g
  2. prg FORMATTED geos FILE v1.0
  3. wRITE iMAGE v2.0
  4. GEOwRITE    v2.1
  5. sMOOTHtABLE:
  6. sMOOTHcORNER:
  7. .BYTE$00,$00,$00,$00,$00,$00,$00,$00
  8. .BYTE$00,$00,$00,$00,$00,$00,$00,$00
  9. .BYTE$33,$00,$32,$00,$00,$00,$00,$00
  10. .BYTE$32,$00,$20,$00,$00,$00,$00,$00
  11. .BYTE$ff,$ff,$ff,$ff,$f7,$f7,$ff,$f7
  12. .BYTE$ff,$7f,$ff,$ff,$ff,$7f,$ff,$7f
  13. .BYTE$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff
  14. .BYTE$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff
  15. @cARDSwID
  16. E=80
  17. cARDSlON
  18. G=94
  19. .INCLUDEsHELLzERO
  20. @rOTnEIGH
  21. BORHOOD:
  22. .BLOCK1
  23. @msnEIGHB
  24. ORHOOD:
  25. .BLOCK1
  26. @lsnEIGHB
  27. ORHOOD:
  28. .BLOCK1
  29. @lEFTbOTb
  30. .BLOCK1
  31. @lEFTmIDb
  32. .BLOCK1
  33. @lEFTtOPb
  34. .BLOCK1
  35. @rIGHTbOT
  36. bYTE:
  37. .BLOCK1
  38. @rIGHTmID
  39. bYTE:
  40. .BLOCK1
  41. @rIGHTtOP
  42. bYTE:
  43. .BLOCK1
  44. .PSECT
  45. @iNITfORp
  46. RINT:
  47. @pRINTpAG
  48. LDX#MbEGINpAGE
  49. JSRsENDmESSAGE
  50. 250$JSRdOsCAN
  51. LDA#12
  52. JSRmOVEdOWN
  53. LDApRINTmODE
  54. CMP#$3E
  55. BCS250$
  56. LDX#MeNDpAGE
  57. JSRsENDmESSAGE
  58. @dOsCAN
  59. LDX#MbEGINsCAN
  60. JSRsENDmESSAGE
  61. LDY#1
  62. 300$JSRoPENwINDOW
  63. 400$JSRdOsMOOTH
  64. JSRsHIFTpIXELS
  65. BNE400$
  66. LDYaCTIVEcOLUMN
  67. CPY#81
  68. BCC300$
  69. LDX#MeNDsCAN
  70. JSRsENDmESSAGE
  71. @sENDgbYT
  72. JSRsENDbYTE
  73. CMP#3
  74. BNE200$
  75. JSRsENDbYTE
  76. 200$RTS
  77. @dOsMOOTH
  78. LDX#1
  79. dslOOP:LDAwINDOW-1,X
  80. RORA
  81. RORTEMP
  82. LDAwINDOW+23,X
  83. ROLA
  84. RORTEMP
  85. ROLA
  86. RORTEMP
  87. LDAwINDOW+24,X
  88. ROLA
  89. ROLA
  90. RORTEMP
  91. LDAwINDOW+25,X
  92. ROLA
  93. ROLA
  94. RORTEMP
  95. RORA
  96. RORTEMP
  97. LDAwINDOW+1,X
  98. RORA
  99. RORTEMP
  100. LDAwINDOW,X
  101. RORA
  102. RORTEMP
  103. LDATEMP
  104. JSRrOTATE0;tOP SMOOTHING.
  105. ANDsMOOTHcORNER,Y
  106. CMP#1
  107. RORlEFTbOTbYTE
  108. RORlEFTmIDbYTE
  109. RORlEFTtOPbYTE
  110. LDArOTnEIGHBORHOOD
  111. JSRrOTATE1
  112. ANDsMOOTHcORNER,Y
  113. CMP#1
  114. RORlEFTbOTbYTE
  115. RORlEFTmIDbYTE
  116. RORlEFTtOPbYTE
  117. LDArOTnEIGHBORHOOD
  118. JSRrOTATE1
  119. ANDsMOOTHcORNER,Y
  120. CMP#1
  121. LDArOTnEIGHBORHOOD
  122. JSRrOTATE1
  123. ANDsMOOTHcORNER,Y
  124. CMP#1
  125. RORrIGHTbOTbYTE
  126. RORrIGHTmIDbYTE
  127. RORrIGHTtOPbYTE
  128. RORrIGHTbOTbYTE
  129. RORrIGHTmIDbYTE
  130. RORrIGHTtOPbYTE
  131. CPX#13
  132. BCCdslOOP
  133. LDAlEFTtOPbYTE
  134. AND#$FF
  135. JSRsENDgbYTE
  136. LDAlEFTmIDbYTE
  137. JSRsENDgbYTE
  138. LDAlEFTbOTbYTE
  139. JSRsENDgbYTE
  140. LDArIGHTtOPbYTE
  141. AND#$FF
  142. JSRsENDgbYTE
  143. LDArIGHTmIDbYTE
  144. JSRsENDgbYTE
  145. LDArIGHTbOTbYTE
  146. JSRsENDgbYTE
  147. @rOTATE1
  148. :ASLA
  149. ADC#0
  150. ASLA
  151. ADC#0
  152. @rOTATE0
  153. :STArOTnEIGHBORHOOD
  154. LDAwINDOW+24,X
  155. ROLA
  156. LDArOTnEIGHBORHOOD
  157. RORA
  158. LSRA
  159. LSRA
  160. STAmsnEIGHBORHOOD
  161. LDArOTnEIGHBORHOOD
  162. AND#7
  163. LDAmASKtABLE,Y
  164. STAlsnEIGHBORHOOD
  165. LDYmsnEIGHBORHOOD
  166. @mASKtABL
  167. .BYTE128,64,32,16,8,4,2,1
  168. @cOLORfIL
  169. TERS:
  170. .WORD$0001,$0000;BLACK ON WHITE.
  171. @mESSAGEo
  172. FFSET:
  173. .BYTE<(M00-MESSAGES)
  174. .BYTE<(M01-MESSAGES)
  175. .BYTE<(M02-MESSAGES)
  176. .BYTE<(M03-MESSAGES)
  177. .BYTE<(M04-MESSAGES)
  178. .BYTE<(M05-MESSAGES)
  179. .BYTE<(M06-MESSAGES)
  180. .BYTE<(M07-MESSAGES)
  181. @mESSAGEl
  182. ENGTH:
  183. .BYTE<(M01-M00)
  184. .BYTE<(M02-M01)
  185. .BYTE<(M03-M02)
  186. .BYTE<(M04-M03)
  187. .BYTE<(M05-M04)
  188. .BYTE<(M06-M05)
  189. .BYTE<(M07-M06)
  190. .BYTE<(M08-M07)
  191. @MESSAGES
  192. @MbEGINpA
  193. GE=0
  194. M00:.BYTEesc,"@",cr
  195. @MbEGINsC
  196. AN=1
  197. M01:.BYTEesc,"r",28,3
  198. @MeNDsCAN
  199. M02:.BYTE3,2,cr+$80,esc,lf,24
  200. @MeNDpAGE
  201. M03:.BYTEff
  202. @MbEGINtE
  203. XT=4
  204. M04:.BYTEesc,"@",cr
  205. @MeNDtEXT
  206. M05:.BYTEff
  207. @MtEXTlIN
  208. EfEED=6
  209. M06:.BYTEcr
  210. @MsETnlq
  211. hoKIMATE 20 NON-COLOR DRIVER
  212. pAGE: page
  213. pRINTED ON: dateaT: timefILE: oKIMATE20g
  214. ----------------------------------------------------------------------------------------------
  215.